home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Ss-Sz / Stack Builder 4.1 Shell.cpt / Stack Builder v4.1 Shell / background_5967.txt < prev    next >
Text File  |  1987-11-12  |  4KB  |  196 lines
  1. -- background: 5967 from stack: in.1 Shell
  2. -- bmap block id: 13372
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Sub/minor topic card
  6. ----- HyperTalk script -----
  7. on openCard
  8.   do "textSetUp"
  9. end openCard
  10. -------------------------------------------------------------------
  11. on doMenu it
  12.   if it is "Delete Card" or it is "Cut Card" then
  13.     if background field "CheckID" is "Master" then
  14.       Beep 20
  15.       answer "I can't let you remove a 'Master Original' card!" with "Oops, sorry!"
  16.       exit doMenu
  17.     end if
  18.     play "boing" gh
  19.     answer "Don't forget‚Ķ delete 'Index' reference too!" with "Yes, I will!"
  20.     set cursor to 4
  21.   end if
  22.   pass doMenu
  23. end doMenu
  24. -------------------------------------------------------------------
  25.  
  26.  
  27.  
  28.  
  29. -- part 2 (field)
  30. -- low flags: 01
  31. -- high flags: 0000
  32. -- rect: left=95 top=32 right=59 bottom=429
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 0 / 0
  35. -- text alignment: 1
  36. -- font id: 2
  37. -- text size: 18
  38. -- style flags: 0
  39. -- line height: 24
  40. -- part name: Topic Name
  41.  
  42.  
  43. -- part 3 (button)
  44. -- low flags: 00
  45. -- high flags: 2000
  46. -- rect: left=487 top=34 right=90 bottom=505
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 0 / 0
  49. -- text alignment: 1
  50. -- font id: 0
  51. -- text size: 12
  52. -- style flags: 0
  53. -- line height: 16
  54. -- part name: Index Link
  55. ----- HyperTalk script -----
  56. on mouseUp
  57.   visual effect dissolve to black
  58.   go to card id 6849
  59. end mouseUp
  60.  
  61.  
  62.  
  63.  
  64. -- part 4 (button)
  65. -- low flags: 00
  66. -- high flags: 2000
  67. -- rect: left=15 top=28 right=322 bottom=39
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 3
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: Title Card Link
  76. ----- HyperTalk script -----
  77. on mouseUp
  78.   visual effect dissolve to black
  79.   go to card id 2976
  80. end mouseUp
  81.  
  82.  
  83.  
  84.  
  85. -- part 6 (button)
  86. -- low flags: 00
  87. -- high flags: 2000
  88. -- rect: left=227 top=294 right=317 bottom=265
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 1014 / 1014
  91. -- text alignment: 1
  92. -- font id: 0
  93. -- text size: 12
  94. -- style flags: 0
  95. -- line height: 16
  96. -- part name: Previous
  97. ----- HyperTalk script -----
  98. on mouseUp
  99.   visual effect wipe right
  100.   go prev
  101. end mouseUp
  102.  
  103.  
  104.  
  105. -- part 11 (button)
  106. -- low flags: 00
  107. -- high flags: 2000
  108. -- rect: left=262 top=293 right=318 bottom=305
  109. -- title width / last selected line: 0
  110. -- icon id / first selected line: 1013 / 1013
  111. -- text alignment: 1
  112. -- font id: 0
  113. -- text size: 12
  114. -- style flags: 0
  115. -- line height: 16
  116. -- part name: New Button
  117. ----- HyperTalk script -----
  118. on mouseUp
  119.   visual effect wipe left
  120.   go next
  121. end mouseUp
  122.  
  123.  
  124.  
  125. -- part 12 (button)
  126. -- low flags: 00
  127. -- high flags: 2000
  128. -- rect: left=38 top=28 right=60 bottom=444
  129. -- title width / last selected line: 0
  130. -- icon id / first selected line: 0 / 0
  131. -- text alignment: 1
  132. -- font id: 0
  133. -- text size: 12
  134. -- style flags: 0
  135. -- line height: 16
  136. -- part name: Return
  137. ----- HyperTalk script -----
  138. on mouseUp
  139.   visual effect zoom open to black
  140.   pop card
  141. end mouseUp
  142.  
  143.  
  144.  
  145. -- part 14 (button)
  146. -- low flags: 00
  147. -- high flags: 2000
  148. -- rect: left=446 top=30 right=55 bottom=483
  149. -- title width / last selected line: 0
  150. -- icon id / first selected line: 21700 / 21700
  151. -- text alignment: 1
  152. -- font id: 0
  153. -- text size: 12
  154. -- style flags: 0
  155. -- line height: 16
  156. -- part name: New Button
  157. ----- HyperTalk script -----
  158. on mouseUp
  159.   go home
  160. end mouseUp
  161.  
  162.  
  163.  
  164. -- part 17 (button)
  165. -- low flags: 00
  166. -- high flags: 2000
  167. -- rect: left=0 top=36 right=326 bottom=14
  168. -- title width / last selected line: 0
  169. -- icon id / first selected line: 0 / 0
  170. -- text alignment: 1
  171. -- font id: 0
  172. -- text size: 12
  173. -- style flags: 0
  174. -- line height: 16
  175. -- part name: Go Back Button
  176. ----- HyperTalk script -----
  177. on mouseUp
  178.   visual effect dissolve to black
  179.   domenu "back"
  180. end mouseUp
  181.  
  182.  
  183.  
  184. -- part 18 (field)
  185. -- low flags: 01
  186. -- high flags: 0000
  187. -- rect: left=43 top=297 right=311 bottom=82
  188. -- title width / last selected line: 0
  189. -- icon id / first selected line: 0 / 0
  190. -- text alignment: 1
  191. -- font id: 3
  192. -- text size: 9
  193. -- style flags: 0
  194. -- line height: 12
  195. -- part name: CheckID
  196.